home *** CD-ROM | disk | FTP | other *** search
/ The Disc - MacWorld 1995 / PowerComputing (The Disc)(MacWorld 1995).ISO / mac / CDFACTOR / HCfactor / HumanCode / HumanCode.DXR / 00074.ls < prev    next >
Encoding:
Text File  |  1995-07-14  |  614 b   |  23 lines
  1. global gDoorOpen, gDoorLoc
  2.  
  3. on mouseDown
  4.   pushBtn()
  5.   if rollOver(20) then
  6.     if gDoorOpen then
  7.       repeat with n = count(gDoorLoc) down to 1
  8.         set the locH of sprite 21 to getAt(getAt(gDoorLoc, n), 1)
  9.         set the locV of sprite 21 to getAt(getAt(gDoorLoc, n), 2)
  10.         updateStage()
  11.       end repeat
  12.       set gDoorOpen to 0
  13.     else
  14.       repeat with n = 1 to count(gDoorLoc)
  15.         set the locH of sprite 21 to getAt(getAt(gDoorLoc, n), 1)
  16.         set the locV of sprite 21 to getAt(getAt(gDoorLoc, n), 2)
  17.         updateStage()
  18.       end repeat
  19.       set gDoorOpen to 1
  20.     end if
  21.   end if
  22. end
  23.